home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / gnu / smlltalk / smtk_11.zoo / Collection.st < prev    next >
Text File  |  1990-05-26  |  7KB  |  263 lines
  1. "======================================================================
  2. |
  3. |   Collection Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1988, 1989, 1990 Free Software Foundation, Inc.
  11. | Written by Steve Byrne.
  12. |
  13. | This file is part of GNU Smalltalk.
  14. |
  15. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  16. | under the terms of the GNU General Public License as published by the Free
  17. | Software Foundation; either version 1, or (at your option) any later version.
  18. | 
  19. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22. | details.
  23. | 
  24. | You should have received a copy of the GNU General Public License along with
  25. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27. |
  28.  ======================================================================"
  29.  
  30.  
  31. "
  32. |     Change Log
  33. | ============================================================================
  34. | Author       Date       Change 
  35. | sbyrne     25 Apr 89      created.
  36. |
  37. "
  38.  
  39. Object subclass: #Collection
  40.        instanceVariableNames: ''
  41.        classVariableNames: ''
  42.        poolDictionaries: ''
  43.        category: nil.
  44.  
  45. Collection comment: 
  46. 'I am an abstract class.  My instances are collections of objects.  My
  47. subclasses may place some restrictions or add some definitions to how
  48. the objects are stored or organized; I say nothing about this.  I merely
  49. provide some object creation and access routines for general collections
  50. of objects.' !
  51.  
  52.  
  53. !Collection class methodsFor: 'instance creation'!
  54.  
  55. with: anObject
  56.     ^self new add: anObject; yourself
  57. !
  58.  
  59. with: firstObject with: secondObject
  60.     ^self new add: firstObject; add: secondObject; yourself
  61. !
  62.  
  63. with: firstObject with: secondObject with: thirdObject
  64.     ^self new add: firstObject; add: secondObject; add: thirdObject; yourself
  65. !
  66.  
  67. with: firstObject with: secondObject with: thirdObject with: fourthObject
  68.     ^self new add: firstObject; add: secondObject; add: thirdObject;
  69.         add: fourthObject; yourself
  70. !!
  71.  
  72.  
  73.  
  74. !Collection methodsFor: 'Adding to a collection'!
  75.  
  76. add: newObject
  77.     self subclassResponsibility
  78. !
  79.  
  80. addAll: aCollection
  81.     aCollection do: [ :element | self add: element ].
  82.     ^aCollection
  83. !!
  84.  
  85.  
  86.  
  87. !Collection methodsFor: 'Removing from a collection'!
  88.  
  89. remove: oldObject ifAbsent: anExceptionBlock
  90.     self subclassResponsibility
  91. !
  92.  
  93. remove: oldObject
  94.     self remove: oldObject
  95.          ifAbsent: [ ^self error: 'Failed to remove object' ].
  96.     ^oldObject
  97. !
  98.  
  99. removeAll: aCollection
  100.     " ??? we're supposed to report an error if an object can't be removed
  101.       properly.  I've elected to let remove: report the error.  Also, it's
  102.       not clear whether we're supposed to remove all occurrences of the
  103.       members of aCollection from the receiver, or only the first."
  104.     aCollection do: [ :element | self remove: element ].
  105.     ^aCollection
  106. !!
  107.  
  108.  
  109.  
  110. !Collection methodsFor: 'testing collections'!
  111.  
  112. includes: anObject
  113.     self do: [ :element | anObject = element ifTrue: [ ^true ] ].
  114.     ^false
  115. !
  116.  
  117. isEmpty
  118.     ^self size == 0
  119. !
  120.  
  121. occurrencesOf: anObject
  122.     | count |
  123.     count _ 0.
  124.     self do: [ :element | anObject == element ifTrue: [ count _ count + 1 ] ].
  125.     ^count
  126. !
  127.  
  128. size
  129.     | count |
  130.     count _ 0.
  131.     self do: [ :element | count _ count + 1].
  132.     ^count
  133. !!
  134.  
  135.  
  136.  
  137. !Collection methodsFor: 'enumerating the elements of a collection'!
  138.  
  139. do: aBlock
  140.     self subclassResponsibility
  141. !
  142.  
  143. select: aBlock
  144.     | newCollection |
  145.     " ### I don't know if this is the right way to create a new collection
  146.       in all cases...I suspect that it is not..."
  147.     newCollection _ self species new.
  148.     self do: [ :element | (aBlock value: element)
  149.                             ifTrue: [ newCollection add: element ]
  150.          ].
  151.     ^newCollection
  152. !
  153.  
  154. reject: aBlock
  155.     | newCollection |
  156.     " ### I don't know if this is the right way to create a new collection
  157.       in all cases...I suspect that it is not..."
  158.     newCollection _ self species new.
  159.     self do: [ :element | (aBlock value: element)
  160.                             ifFalse: [ newCollection add: element ]
  161.          ].
  162.     ^newCollection
  163. !
  164.  
  165. collect: aBlock
  166.     | newCollection |
  167.     " ### I don't know if this is the right way to create a new collection
  168.       in all cases...I suspect that it is not..."
  169.     newCollection _ self species new.
  170.     self do: [ :element | newCollection add: (aBlock value: element) ].
  171.     ^newCollection
  172. !
  173.  
  174. detect: aBlock ifNone: exceptionBlock
  175.     self do: [ :element | (aBlock value: element) ifTrue: [ ^element ] ].
  176.     exceptionBlock value    
  177. !
  178.     
  179. detect: aBlock
  180.     self detect: aBlock ifNone: [ ^self error: 'Collection detect: failed']
  181. !
  182.  
  183. inject: thisValue into: binaryBlock
  184.     self do: [ :element | thisValue _ binaryBlock value: thisValue
  185.                                                   value: element ].
  186.     ^thisValue
  187. !!
  188.  
  189.  
  190.  
  191. !Collection methodsFor: 'converting'!
  192.  
  193. asBag
  194.     | aBag |
  195.     aBag _ Bag new.
  196.     self do: [ :element | aBag add: element ].
  197.     ^aBag
  198. !
  199.  
  200. asSet
  201.     | aSet |
  202.     aSet _ Set new: self size.
  203.     self do: [ :element | aSet add: element ].
  204.     ^aSet
  205. !
  206.  
  207. asOrderedCollection
  208.     | anOrderedCollection |
  209.     anOrderedCollection _ OrderedCollection new: self size.
  210.     self do: [ :element | anOrderedCollection add: element ].
  211.     ^anOrderedCollection
  212. !
  213.  
  214. asSortedCollection
  215.     | aSortedCollection |
  216.     aSortedCollection _ SortedCollection new.
  217.     self do: [ :element | aSortedCollection add: element ].
  218.     ^aSortedCollection
  219. !
  220.  
  221. asSortedCollection: aBlock
  222.     | aSortedCollection |
  223.     aSortedCollection _ SortedCollection sortBlock: aBlock.
  224.     self do: [ :element | aSortedCollection add: element ].
  225.     ^aSortedCollection
  226. !!
  227.  
  228.  
  229.  
  230. !Collection methodsFor: 'printing'!
  231.  
  232. printOn: aStream
  233.     | firstTime |
  234.     firstTime _ true.
  235.     aStream nextPutAll: self classNameString.
  236.     aStream nextPutAll: ' ('.
  237.     self do:
  238.         [ :element | firstTime ifTrue: [ firstTime _ false ]
  239.                            ifFalse: [ aStream nextPut: Character space ].
  240.               element storeOn: aStream ].
  241.     aStream nextPut: $)
  242. !!
  243.  
  244.  
  245.  
  246. !Collection methodsFor: 'storing'!
  247.  
  248. store: aStream
  249.     | noElements |
  250.     aStream nextPut: $(.
  251.     aStream nextPutAll: self classNameString.
  252.     aStream nextPutAll: ' new'.
  253.     noElements _ true.
  254.     self do:
  255.         [ :element | aStream nextPutAll: ' add: '.
  256.                      element storeOn: aStream.
  257.              aStream nextPut: $;.
  258.              noElements _ false ].
  259.     noElements ifFalse: [ aStream nextPutAll: ' yourself' ].
  260.     aStream nextPut: $)
  261. !!
  262.  
  263.